D-Rom (UK)/D_ROM/D_ROM (Track 01).bin/drom.dir/00110.ls

Text File | 1997-07-24 | 4.7 KB | 146 lines

on startMovie
  global ghousereflist, gtechnoreflist, ggaragereflist, gbeatzreflist, gmenudrive, glistcounter, gwhere_I_am
  clearGlobals()
  cursor(4)
  preloadMember("filmloopski", the number of member "filmloopski" + 52)
  if (the platform contains "16") = 0 then
    if not soundBusy(1) then
      puppetSound(1, "cosford.aif")
    end if
  end if
  set ghousereflist to [12, 15, 17, 16, 18, 19, 20, 23, 26, 37, 22, 21, 24, 27, 28, 38, 39, 40, 41]
  set gtechnoreflist to [2, 5, 10, 11, 29, 30]
  set ggaragereflist to [32, 34, 42]
  set gbeatzreflist to [1, 3, 33, 31]
  set gmenudrive to 0
  set glistcounter to 2
  set gwhere_I_am to 1
  set the text of field "xxfield" to " "
  if the machineType = 256 then
    set the textSize of field "xxfield" to 12
  end if
  set zap to the number of member "mukkaa"
  repeat with x = zap to zap + 9
    if the machineType = 256 then
      set the textFont of field x to "Arial"
      next repeat
    end if
    set the textFont of field x to "Geneva"
  end repeat
  set temp to the number of member "songfield1"
  repeat with x = temp to temp + 3
    set the textSize of field x to 12
  end repeat
  define_the_list()
end

on setup_main_room
  global groomQTlist, greset_flag, gwhere_I_am, groomlabellist
  if (the platform contains "16") = 0 then
    if not soundBusy(1) then
      puppetSound(1, "cosford.aif")
    end if
  end if
  repeat with x in [8, 10, 13, 15, 21, 22, 23, 24]
    puppetSprite(x, 1)
  end repeat
  repeat with x in [8, 10, 11, 12, 13, 15, 47]
    set the visible of sprite x to 0
  end repeat
  set greset_flag to 1
  set groomQTlist to ["nfo.mov", "tc.mov", "grg.mov", "hs.mov", "abz.mov"]
  set groomlabellist to ["infolab", "tecnolab", "garagelab", "houselab", "beatzlab"]
  set the member of sprite 21 to member getAt(groomlabellist, gwhere_I_am)
  cursor(-1)
end

on roomQT plus_or_minus
  global groomQTlist, gwhere_I_am, greset_flag
  set greset_flag to 0
  set gwhere_I_am to getPos(groomQTlist, the name of the member of sprite 24)
  set gwhere_I_am to gwhere_I_am + plus_or_minus
  if gwhere_I_am > count(groomQTlist) then
    set gwhere_I_am to 1
  end if
  if gwhere_I_am < 1 then
    set gwhere_I_am to count(groomQTlist)
  end if
  set the loc of sprite 24 to point(-300, -300)
  set the loc of sprite 24 to point(326, 182)
  if plus_or_minus = -1 then
    set the movieRate of sprite 24 to 1
  end if
end

on where_next nextnum, listname
  set testlist to []
  repeat with x = 1 to count(Biglist, listname)
    if nextnum = getaProp(getaProp(getaProp(Biglist, listname), x), #refnum) then
      add(testlist, 1)
      next repeat
    end if
    add(testlist, 0)
  end repeat
  return getPos(testlist, 1)
end

on depuppify
  repeat with x = 1 to 48
    set the visible of sprite x to 1
    puppetSprite(x, 0)
  end repeat
end

on setup_the_fields
  global gworklist, glistcounter
  set firstfield to the memberNum of member "songfield1"
  repeat with x = 1 to 4
    set temp to getaProp(getAt(getaProp(getaProp(gworklist, glistcounter), #tracks), x), #namtrk)
    if the number of chars in temp > 17 then
      put word 1 of temp & " " & word 2 of temp & "..." into field (firstfield + (x - 1))
      next repeat
    end if
    put temp into field (firstfield + (x - 1))
  end repeat
end

on setup_room_generic roomreflist, roomcast, roomlist
  global glistcounter, gincrement, greflist
  set gincrement to 1
  set greflist to roomreflist
  set gcastlib to roomcast
  repeat with x = 1 to count(roomlist)
    set checker to value(getaProp(getAt(roomlist, x), #refnum))
    if checker = getAt(roomreflist, gincrement) then
      set glistcounter to x
      set tempic to getAt(getaProp(getAt(roomlist, glistcounter), #QTdata), 2)
      set the castNum of sprite 20 to member tempic of castLib roomcast
      set temsnd to getaProp(getAt(getaProp(getAt(roomlist, glistcounter), #tracks), 1), #QTnam)
      set the castNum of sprite 45 to member temsnd
      set teminf to getaProp(getAt(getaProp(getAt(roomlist, glistcounter), #tracks), 1), #inftrk)
      if teminf <> EMPTY then
        set the castNum of sprite 12 to member teminf
      else
        put "Artist:" && getaProp(getAt(roomlist, glistcounter), #artnam) & RETURN & "Label:" && getaProp(getAt(roomlist, glistcounter), #recinf) & RETURN & "Track One name:" && getaProp(getAt(getaProp(getAt(roomlist, glistcounter), #tracks), 1), #namtrk) into field "xxfield"
        set the castNum of sprite 12 to member "xxfield"
      end if
      updateStage()
    end if
    setup_the_fields()
  end repeat
end

on stopMovie
  depuppify()
end

on idle
  if (the frame < 15) and (the frame > 21) then
    if (the platform contains "16") = 0 then
      if not soundBusy(1) then
        puppetSound(1, "cosford.aif")
      end if
    end if
  end if
end